Определить, является ли число совершенным (число называется совершенным, если оно равно сумме всех его делителей, отличных от него самого). Для решения задачи воспользоваться подпрограммой для нахождения остатка от деления одного числа на другое — QBasic(Бейсик)

Совершенное число — натуральное число, равное сумме всех своих собственных делителей (т. е. всех положительных делителей, отличных от самого́ числа).

Первое совершенное число — 6 (1 + 2 + 3 = 6), следующее — 28 (1 + 2 + 4 + 7 + 14 = 28). По мере того как натуральные числа возрастают, совершенные числа встречаются всё реже. Третье совершенное число — 496, четвёртое — 8128, пятое — 33 550 336, шестое — 8 589 869 056, седьмое — 137 438 691 328

DECLARE FUNCTION Md (A, B)
CLS
INPUT "N=", N
s = 0
FOR i = 1 TO (N - 1)
IF Md(N, i) = 0 THEN s = s + i
NEXT i
IF N = s THEN
WRITE "Sovershennoe chislo"
ELSE WRITE "NEsovershennoe chislo"
END IF
END
 
FUNCTION Md (A, B)
Md = A MOD B
END FUNCTION